program testclass1;

class testclass1

BEGIN

   VAR 
      AA       : integer;
      CC       : integer;
      testObj  : testclass1;

FUNCTION testclass1;
BEGIN
      CC := testfunc2;

      PRINT CC
END;


FUNCTION testfunc2 : integer;
BEGIN	   
      testfunc2 := 4
END

END


.

